home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 15 / CU Amiga Magazine's Super CD-ROM 15 (1997)(EMAP Images)(GB)[!][issue 1997-10].iso / S / CheckHTML < prev    next >
AmigaDOS Script File  |  1997-05-16  |  1KB  |  48 lines
  1. .key FILE,QUIET/S
  2. .bra {
  3. .ket }
  4. ;
  5. ; CheckHTML Shell script
  6. ;
  7. ; Copyright © 1997 Kai Hofmann
  8. ; All rights reserved!
  9. ; Released without any explicit or implicit warranty!
  10. ;
  11. ; EMail: i07m@informatik.uni-bremen.de
  12. ; WWW  : http://www.informatik.uni-bremen.de/~i07m/
  13. ;
  14. ; $VER: CheckHTML 1.3 (16.05.97)
  15. ;
  16. if X EQ "X{FILE}"
  17.   requestfile title="Select HTML files" acceptpattern="#?.htm(l|%)" multiselect noicons >t:CheckHTMLfiles{$$}
  18.   IF NOT Warn
  19.     CountStrings t:CheckHTMLfiles{$$} TO ENV:CheckHTMLnums{$$}
  20.     LAB loop
  21.     IF NOT $CheckHTMLnums{$$} EQ 0 VAL
  22.       CheckHTML `SelectString t:CheckHTMLfiles{$$} $CheckHTMLnums{$$}` {QUIET}
  23.       eval $CheckHTMLnums{$$} -1 to env:CheckHTMLnums{$$}
  24.       skip loop back
  25.     ENDIF
  26.     delete ENV:CheckHTMLnums{$$} QUIET
  27.   ENDIF
  28.   delete t:CheckHTMLfiles{$$} QUIET
  29.   quit 0
  30. endif
  31.  
  32. if NOT {QUIET}
  33.   echo "Checking {FILE}"
  34. endif
  35. search "{FILE}" DOCTYPE QUIET >NIL:
  36. if warn
  37.   echo "No DOCTYPE found for {FILE}"
  38.   echo "Please add the following line to the top of your HTML document first:"
  39.   echo "<!DOCTYPE HTML PUBLIC *"-//W3C//DTD HTML 3.2 Final//EN*">"
  40. else
  41.   sgmls sgml:HTML.decl "{FILE}" >NIL:
  42.   if not warn
  43.     if NOT {QUIET}
  44.       echo "Ok"
  45.     endif
  46.   endif
  47. endif
  48.